with Ada.Text_IO;			use Ada.Text_IO;
with Ada.Integer_Text_IO;	use Ada.Integer_Text_IO;
procedure fizzbuzz is
	C : Integer;

begin
	C := 1;
	While C < 16 loop
		if C mod 15 = 0 then
			Put ("fizzbuzz");
		elsif C mod 3 = 0 then 
			Put("fizz");
		elsif C mod 5 = 0 then
			Put("buzz");
		else
			Put(C);
		end if;
		New_Line;
		C := C + 1;
	end loop;
end fizzbuzz;
